#!
use strict;
sub toupper
{
	my @words=();
	foreach my$word (@_)
	{
		@words = (@words,uc $word);
	}
	return @words;
}
print toupper('a','b','c','d');
